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EDTSFPUT = write out the format buffer Ib-5¢ sen- 130% 99: 38: #9 VAX-11 Bliss-32 V Ye 0785 Page 1. 
-Sep-1984 DISKSVMSMASTER: CEDT.SRCJFPUT.BLI;1 (1) 
ZTITLE ‘EDTSFPUT = write out the format buffer’ 
MODULE EDTSFPUT ' Write out the {greet buffer 
pOENT = *v04-000' ' File: FPUT.BLI Edit: JB8S1003 
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BEGIN 
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MODIFIED BY: 


i 

i 

i 

i 

i 

' 

i 

i ' 
AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
i 

i 

1-001 - Original. DJS 19-FEB-1981. This module was created by 

ie 


ad 
eg 0 
3 8 0 1 
= 508 | 
3 9 ° 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 . 
; 10 10 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
; \; matt : :* ALL RIGHTS RESERVED. * 
; '* a 
; 8 8018 ' '@ THIS SOFTWARE IS Ryn SHED UNDER A LICENSE AND MAY BE USED AND copiee * 
3 14 0014 1 !'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 8218 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 poi8 } ‘© TRANSFERRED. * 
3 i® ] 
3 st 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $¢ poss } be CORPORATION. . 
3 's * 
; 26 0024 1 i* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
; «2 0025 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL “ 
; ee 0026 1 !* » 
; 7 0027 1 !* * 
3 8 0028 1 Neeeaeeeere eee eee eee eee AREER AAA AAA AAA TATA ATA AAA AAA AAA A TAKA e AAA ee 
3 ‘9 0029 1! 
3 0 $080 1 
; 1 0031 1 !+4+ 
3 $ ah 1! FACILITY: EDT == The DEC Standard Editor 
3 ; 0033 1 
; 4 0034 1 ABSTRACT: 
; @ 0035 1 
; “9 Ones : Write out the format buffer. 
4 | 
3 HA 0038 1 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
; 0039 1 
; 40 0040 1 
; 41 0041 1 
3 $5 Rng 1 
= * 0043 1 
3; (44 0044 1 

,;. 63 045 1 extracti ng routine eorecey" FMTBUF from module FORMAT. 

: ag B066 1 ! 1-002 - Regularize header JBS 05-Mar-1981 

3 4 047 1 1-00 - Use EDTSSK_FMT “BUF LEN. JBS 29-Sep-1982 

; 68 0048 1 

: 49 0049 1 
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; «(8 } XSBTTL 'Declarations’ : 
; | { TABLE OF CONTENTS: : 
; 4 4 
: 0 ; REQUIRE "EDTSRC: TRAROUNAM'; : 
; 95 1 FORWARD ROUTINE : 
; 496 1 EDTSSOUT_FMTBUF ; ; 
: 497 1 : 
; 498 1! : 
; 4, 1 ! INCLUDE FILES: : 
$ 500 1! ; 
; 501 1 : 
; ; ¢ REQUIRE "EDTSRC:EDTREQ’; : 
3 6 8 1! | : 
; 639 1 | MACROS: : 
3 0640 1! : 
3 0641 1! NONE ; 
3 pose . | : 
$ ‘se 1 ! EQUATED SYMBOLS: ; 
; 644 1! ; 
3 0645 1! NONE : 
3 B68 1! : 
3 0647 1 ! OWN STORAGE: : 
3 0648 1! : 
2 0649 1! NONE : 
3 0650 1! ‘ 
: 0651 1 ! EXTERNAL REFERENCES: : 
; Bo3¢ 1! : 
; 0653 1! In the routine : 
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Oue000 EDTSSOUT _FMYBUE - write out the format buffer ~360-1382 99: $f: 79 ST EKSVMMASTER EDT SRCTFPUT.BLI;1 ° (3) 

: : ¢ } ZSBTTL “EDTSSOUT_FMTBUF = write out the format buffer’ : 
; 6 § | GLOBAL ROUTINE EDTSSOUT_FMTBUF ! Write out the format buffer ; 
Py = e 
3 8 1 : 
5 9 1 'e¢ P 
; + ? 1 FUNCTIONAL DESCRIPTION: ‘ 
; 36 66 1 Write out the contents of the format buffer by calling the format ‘ 
: $, rt ! write routine. Reset the buffer pointer and column number. : 
: 95 5 1 | FORMAL PARAMETERS: ; 
3 a9 $ 1! $ 
in 1! NONE ; 
; o8 1 i : 
; O% 1 ' IMPLICIT INPUTS: : 
: 100 670 1! : 
; ©6101 0671 1: EDTSST_ gall BUF ; 
; Ht) pore 1 EDTSSA_FMT_CUR ; 
; 10 0673 1! EDTSSA_ ERT “WRRUT : 
; 104 0674 1: 3 
; 105 0675 1! IMPLICIT OUTPUTS: 3 
3 18 Be78 1 : 
; 10 067 1 EDTSSA_FMT_CUR ° 
: 108 0678 1! EDTS$G_FMT_LNPOS ; 
: 109 0679 1! 3 
; 110 0680 1 ! ROUTINE VALUE: ; 
s 491 0681 1 | : 
: i%¢ 0682 1 ' Same as the formatting routine : 
0683 1! ; 
; («16 0684 1! SIDE EFFECTS: : 
3 195 0685 1} 3 
3 118 ey] : Calls the formatting routine, whose address is in EDTSS$A_FMT_WRRUT . : 
: 118 0688 1 i-- | ; 
: 119 0689 1 | ; 
: 120 0690 BEGIN ; 
; 1$] 0691 3 
; 7 ¢ 069 EXTERNA ; 
3 le 069 EDTSST_ FMT_BUF : BLOCK CCHSALLOCATION (EDTSS$K_FMT_BUFLEN)], ! The formatted output buffer : 
: 126 0694 2 EDTSSA_FMT_CUR, ' Pointer to next character in above ; 
3; 125 0695 EDTS$G_FMT “LNPOS, ' The current column number : 
3 1¢6 Bene EDISSA_FMT_WRRUT; i Routine to call to oe the buffer : 
: 128 98 LOCAL ; 
3 ' > 544 RETVAL; ‘ 
: (131 0701 RETVAL = (.EDTSSA_FMT WRRUT) aigoTsst. FMT_BUF, CHSDIFF (.EDTSS$A_FMT_CUR, EDTSST_FMT_BUF)); ; 
F} 13 $708 EDTSSA_FMT_CUR = EDTSST_ . 
3; 13 70 EDTS$G_ FMT_LNPOS = 0; : 
3; 134 0704 RETURN” ( (CRETVAL); ; ; 
3 135 0705 END; ! of routine EDTSSOUT_FMTBUF : 
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; Routine Size: 


-EDTSCODE + 0000 
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EMT “WRRUT 
EDTSCODE,NOWRT, SHR, PIC,2 
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E T EDTSFPUT = write out the format buffer 1b-sep VAX-11 Bliss-32 V4.0-7 
vn teets EDTSSOUT _FMYBur - write out the format buffer et 7 99: $f: 9 DISKSVMSMASTER: as i’sae FPUT.BLI;1 
: 139 7 1 END ! 
: 12 0709 } E of module EDT$FPUT 
3; «(1461 710 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 45 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; coccccee Syabols oeooeeoee Pages Processing 
: File Total ioaded Percent Mapped Time 

; -$ 25 5$DUAz8: EDT. SRCJEDT.L32;1 377 1 0 40 00:00.2 
3 55$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:FPUT/OBJ=OBJ$:FPUT MSRCS$:FPUT.BLI/UPDATE=(ENH$:F PUT) 
3; Size: 45 code + 0 data bytes 

3; Run Time: : 9-¢ 

; Elapsed Time: 09: 

3; Lines/CPU Min: 4650" 

; Lexemes/CPU-Min: 12524 

3 A Used: 55 pages 

; Compilation Complete 
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